5 DIMH$(8),A$(100,8)
10 PRINTCHR$(147);:POKE53280,15:POKE53281,9
20 PRINTCHR$(142)"[158][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
30 FORT=1TO23
40 PRINT"[214]                                      [214]";
50 NEXTT
60 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]";
70 POKE2023,86:POKE56295,7
80 PRINT"":PRINTTAB(14)"ADDRESS BOOK"
90 PRINTTAB(14)"[145][163][163][163][163][163][163][163][163][163][163][163][163]"
100 FORT=1TO3000:NEXTT
119 REM**READ DATA HEADINGS
120 FORT=0TO8:READH$(T):NEXTT
199 REM**MAIN MENU
200 POKE53280,6:POKE53281,11:PRINTCHR$(14)"[147]";
210 PRINTTAB(11)"[205]ENU OF [193]CTIVITIES"
220 PRINTTAB(11)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
230 PRINTTAB(3)"1. [204][207][193][196][160]THE INFORMATION FROM DISK."
240 PRINT:PRINTTAB(3)"2. [210][197][214][201][197][215] THE INFORMATION."
250 PRINT:PRINTTAB(3)"3. [193][196][196] A NEW ENTRY."
260 PRINT:PRINTTAB(3)"4. [195][200][193][206][199][197] SOME INFORMATION."
270 PRINT:PRINTTAB(3)"5. [196][197][204][197][212][197] AN ENTRY."
280 PRINT:PRINTTAB(3)"6. [211][193][214][197] THE INFORMATION ON DISK."
290 PRINT:PRINTTAB(3)"7. [208][210][201][206][212]ING MENU."
300 PRINT:PRINTTAB(3)"8. [205][197][206][213] OF OTHER PROGRAMS ON DISK."
304 PRINT"[195][200][207][207][211][197] [194][217] [208][210][197][211][211][201][206][199] [193] [206][213][205][194][197][210][146]";
310 GETAN$:IFAN$=""THEN310
320 IFAN$<"1"ORAN$>"8"THENGOTO350
330 M=VAL(AN$)
340 ONMGOTO2000,5000,8000,11000,14000,17000,20000,23000
349 REM**IF WRONG MENU INPUT
350 FORT=1TO10
360 PRINT"[157][157][157][157][157][157][206][213][205][194][197][210]";:FORY=1TO150:NEXTY:PRINT"[150][157][157][157][157][157][157][206][213][205][194][197][210][146]";
370 FORY=1TO150:NEXTY
380 NEXTT
390 GOTO310
1999 REM**FROM MENU OPTION 1
2000 POKE53280,7
2010 PRINT"[147]":PRINTTAB(17)"[204]OADING"
2020 I=0:J=0
2030 OPEN2,8,2,"0:NAMEFILE,S,R"
2060 INPUT#2,A$(I,J)
2070 IFST<>0THENGOTO2100
2080 J=J+1
2084 IFJ>8THENJ=0:I=I+1
2090 GOTO2060
2100 CLOSE2
2200 X=I:Z1=1:GOTO200
4999 REM**FROM MENU OPTION 2
5000 GOTO30000
5002 PRINT"[147]":I=0
5010 FORJ=0TO8
5014 IFJ=0THENPRINTCHR$(147)""
5020 PRINTTAB(2)A$(I,J)
5022 IFJ=6THENPRINT
5024 IFJ=7THENPRINT
5030 NEXTJ
5035 IFI=XTHENGOTO5100
5040 PRINTTAB(14)"[193]NOTHER ENTRY? (Y/N)"
5050 GETAN$:IFAN$=""THEN5050
5060 IFAN$="Y"ORAN$="[217]"THENI=I+1:GOTO5010
5070 GOTO200
5100 PRINT"[204]AST ENTRY. [208]RESS [198]1 TO RETURN TO MENU";
5110 GETAN$:IFAN$<>"[133]"THEN5110
5120 GOTO200
7999 REM**FROM MENU OPTION 3
8000 PRINTCHR$(147):POKE53280,5
8010 PRINT:PRINTTAB(13)"[193][196][196][201][206][199] [193] [210][197][195][207][210][196]"
8020 PRINTTAB(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT
8030 FORT=0TO8:PRINT" ";H$(T):PRINT:NEXTT
8035 IFZ=1THENJ=0:GOTO8050
8037 IFZ1=1THENI=I+1:J=0:GOTO8050
8040 I=0:J=0
8050 PRINT"";
8060 INPUT"*[157][157][157]";A$(I,J):GOTO8500
8070 PRINTTAB(11)"[193]NOTHER RECORD? (Y/N)[146]";
8080 GETAN$:IFAN$=""THEN8080
8090 IFAN$="N"ORAN$="[206]"THENX=I:GOTO200
8100 I=I+1:J=0:Z=1:GOTO8000
8500 PRINTTAB(13)"[158][197]NTRY [207].[203].? (Y/N)"
8510 GETAN$:IFAN$=""THEN8510
8520 IFAN$="N"ORAN$="[206]"THENZ=1:GOTO8000
8530 J=J+1
8540 IFJ>8THENJ=8:GOTO8070
8550 GOTO8060
10999 REM**FROM MENU OPTION 4
11000 POKE53280,7
11010 PRINT"[147]";TAB(12)"[150][195][200][193][206][199][197] [207][208][212][201][207][206][211]"
11020 PRINTTAB(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
11030 PRINTTAB(8)"1. [210]EVIEW AND CHANGE."
11040 PRINTTAB(8)"2. [211]EARCH AND CHANGE."
11050 PRINTTAB(8)"3. [210]ETURN TO MAIN MENU."
11060 PRINTTAB(6)"[195][200][207][207][211][197][160][194][217][160][208][210][197][211][211][201][206][199][160][193][160][206][213][205][194][197][210][146]";
11070 GETAN$:IFAN$=""THEN11070
11080 IFAN$<"1"ORAN$>"3"THENGOTO11110
11090 M=VAL(AN$)
11100 ONMGOTO11160,11500,200
11109 REM**IF WRONG MENU INPUT
11110 FORT=1TO10
11120 PRINT"[158][157][157][157][157][157][157][206][213][205][194][197][210]";:FORY=1TO150:NEXTY:PRINT"[157][157][157][157][157][157][206][213][205][194][197][210]";
11130 FORY=1TO150:NEXTY
11140 NEXTT
11150 GOTO11070
11159 REM**FROM CHANGING MENU OPTION 1
11160 PRINT"":I=0:CS=0
11170 FORJ=0TO8
11180 IFJ=0THENPRINTCHR$(147)""
11190 PRINTTAB(6)"[158]";J;"";A$(I,J)
11200 IFJ=6THENPRINT
11210 IFJ=7THENPRINT
11220 NEXTJ
11230 PRINTTAB(8)"[150][195][200][193][206][199][197][146] THIS ENTRY? (Y/N)"
11240 GETAN$:IFAN$=""THEN11240
11250 IFAN$="Y"ORAN$="[217]"THENGOTO11310
11260 IFI=XTHENGOTO5100
11270 PRINTTAB(14)"[193]NOTHER ENTRY? (Y/N)"
11280 GETAN$:IFAN$=""THEN11280
11290 IFAN$="Y"ORAN$="[217]"THENI=I+1:GOTO11302
11300 GOTO200
11302 IFCS=1THENGOTO14500
11304 GOTO11170
11310 PRINT"[145][197]NTER [158][206][213][205][194][197][210] OF LINE TO BE CHANGED."
11320 GETAN$:IFAN$=""THEN11320
11330 IFAN$<"0"ORAN$>"8"THENPRINT"":GOTO11310
11340 J=VAL(AN$):PRINTCHR$(19);
11350 DN$=""
11360 IFJ=7THENPRINTLEFT$(DN$,13);:GOTO11390
11370 IFJ=8THENPRINTLEFT$(DN$,15);:GOTO11390
11380 PRINTLEFT$(DN$,J+5);
11390 PRINTTAB(9)"                         "
11400 INPUT"[145]";A$(I,J)
11410 PRINTCHR$(19);LEFT$(DN$,18);TAB(2);"      [195]HANGE ANOTHER LINE? (Y/N)    "
11420 GETAN$:IFAN$=""THEN11420
11430 IFAN$="Y"ORAN$="[217]"THENGOTO11310
11440 GOTO11270
11499 REM**FROM CHANGING MENU OPTION 2
11500 CS=1
11510 GOTO14500
13999 REM**FROM MENU OPTION 5
14000 POKE53280,2:DS=0
14010 PRINT"[147]";TAB(12)"[158][196][197][204][197][212][201][206][199] [207][208][212][201][207][206][211]"
14020 PRINTTAB(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
14030 PRINTTAB(8)"1. [210]EVIEW AND DELETE."
14040 PRINTTAB(8)"2. [211]EARCH AND DELETE."
14050 PRINTTAB(8)"3. [210]ETURN TO MAIN MENU."
14060 PRINTTAB(6)"[195][200][207][207][211][197][160][194][217][160][208][210][197][211][211][201][206][199][160][193][160][206][213][205][194][197][210][146]";
14070 GETAN$:IFAN$=""THEN14070
14080 IFAN$<"1"ORAN$>"3"THENGOTO14110
14090 M=VAL(AN$)
14100 ONMGOTO14160,14500,200
14109 REM**IF WRONG MENU INPUT
14110 FORT=1TO10
14120 PRINT"[158][157][157][157][157][157][157][206][213][205][194][197][210]";:FORY=1TO150:NEXTY:PRINT"[157][157][157][157][157][157][206][213][205][194][197][210]";
14130 FORY=1TO150:NEXTY
14140 NEXTT
14150 GOTO14070
14159 REM**FROM DELETING MENU OPTION 1.
14160 PRINT"":I=0
14170 FORJ=0TO8
14180 IFJ=0THENPRINTCHR$(147)""
14190 PRINTTAB(7)A$(I,J)
14200 IFJ=6THENPRINT
14210 IFJ=7THENPRINT
14220 NEXTJ
14230 PRINTTAB(8)"[158][196][197][204][197][212][197][146] THIS ENTRY? (Y/N)"
14240 GETAN$:IFAN$=""THEN14240
14250 IFAN$="Y"ORAN$="[217]"THENGOTO14310
14260 IFI=XTHENGOTO5100
14270 PRINTTAB(14)"[193]NOTHER ENTRY? (Y/N)"
14280 GETAN$:IFAN$=""THEN14280
14290 IFAN$="Y"ORAN$="[217]"THENI=I+1:GOTO14302
14300 GOTO200
14302 IFDS=1THENGOTO14520
14304 GOTO14170
14310 X=X-1:DE=I
14320 FORI=DETOX:FORJ=0TO8
14330 A$(I,J)=A$(I+1,J)
14340 NEXTJ:NEXTI
14350 PRINTTAB(8)"[145][158][196][197][204][197][212][197][196][146] AS REQUESTED.           "
14360 GOTO14260
14449 REM**FROM DELETING MENU OPTION 2.
14500 INPUT"[147][211]EARCH WORD";DE$
14502 PRINTTAB(6)"[208]LEASE WAIT A MOMENT."
14510 I=0
14520 FORJ=0TO8
14530 A=LEN(A$(I,J))
14540 FORDE=1TOA-3
14550 IFLEFT$(DE$,4)=MID$(A$(I,J),DE,4)THENGOTO14640
14560 NEXTDE:NEXTJ
14570 I=I+1
14580 IFI=X+1THENGOTO14600
14590 GOTO14520
14600 PRINT"[211]EARCH COMPLETED."
14610 PRINT"[208]RESS [198]1 TO RETURN TO MENU.[146]"
14620 GETAN$:IFAN$<>"[133]"THEN14620
14622 IFCS=1THENGOTO11010
14624 IFRV=1THENGOTO30000
14630 GOTO14010
14640 DS=1
14642 IFCS=1THENGOTO11170
14644 GOTO14170
16999 REM**FROM MENU OPTION 6
17000 POKE53280,10
17010 PRINT"[147]":PRINTTAB(9)"[211]AVING NEW RECORDS"
17040 OPEN2,8,2,"@0:NAMEFILE,S,W"
17050 I=0:J=0
17070 PRINT#2,A$(I,J)
17080 J=J+1
17090 IFJ>8THENJ=0:I=I+1
17094 IFI=X+1THENGOTO17110
17100 GOTO17070
17110 CLOSE2
17120 GOTO200
19999 REM**FROM MENU OPTION 7
20000 POKE53280,4
20010 PRINT"[147]";TAB(12)"[208][210][201][206][212][201][206][199] [207][208][212][201][207][206][211]"
20020 PRINTTAB(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
20030 PRINTTAB(6)"1. [208]RINT ALL ENTRIES."
20040 PRINTTAB(6)"2. [211]EARCH AND PRINT."
20050 PRINTTAB(6)"3. [210]ETURN TO MAIN MENU."
20060 PRINTTAB(7)"[195][200][207][207][211][197] [194][217] [208][210][197][211][211][201][206][199] [193] [206][213][205][194][197][210][146]";
20070 GETAN$:IFAN$=""THEN20070
20080 IFAN$<"1"ORAN$>"3"THENGOTO20110
20090 M=VAL(AN$)
20100 ONMGOTO20160,20500,200
20109 REM**IF WRONG MENU INPUT
20110 FORT=1TO10
20120 PRINT"[158][157][157][157][157][157][157][206][213][205][194][197][210]";:FORY=1TO150:NEXTY:PRINT"[157][157][157][157][157][157][206][213][205][194][197][210]";
20130 FORY=1TO150:NEXTY
20140 NEXTT
20150 GOTO20070
20160 I=0:J=0
20170 OPEN4,4,7:CMD4
20190 PRINT"        ";A$(I,J)
20200 IFJ=6THENPRINT
20210 IFJ=7THENPRINT
20220 IFJ=8THENPRINT:PRINT:PRINT
20230 J=J+1
20240 IFJ=<8THENGOTO20190
20260 PRINT#4:CLOSE4
20270 PRINT"[147]";TAB(9);"[193]NOTHER ENTRY? (Y/N)"
20280 GETAN$:IFAN$=""THEN20280
20290 IFAN$="N"ORAN$="[206]"THENGOTO20000
20291 I=I+1:J=0:IFI=X+1THENGOTO5100
20292 IFPTTHENGOTO20520
20294 GOTO20170
20300 PRINT#4:CLOSE4:GOTO5100
20449 REM**FROM PRINTING OPTION 2.
20500 INPUT"[147][211]EARCH WORD";SE$
20502 PRINT"[158][208]LEASE WAIT A MINUTE.":IFPT=1THENGOTO20520
20510 I=0
20520 FORJ=0TO8
20530 A=LEN(A$(I,J))
20540 FORSE=1TOA-3
20550 IFLEFT$(SE$,4)=MID$(A$(I,J),SE,4)THENPT=1:J=0:GOTO20170
20560 NEXTSE:NEXTJ
20570 I=I+1
20580 IFI=X+1THENGOTO20600
20590 GOTO20520
20600 PRINT"[211]EARCH COMPLETED."
20610 PRINT"[208]RESS [198]1 TO RETURN TO MENU.[146]"
20620 GETAN$:IFAN$<>"[133]"THEN20620
20630 GOTO20010
22999 REM**FROM MENU OPTION 8
23000 PRINTCHR$(142)"[147]LOAD"CHR$(34)"MENU"CHR$(34)",8"
23010 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
23020 POKE631,13:POKE632,13:POKE198,2:END
29999 REM**FROM 5000
30000 RV=1:PRINT"[147]";TAB(12)"[210][197][214][201][197][215][201][206][199][160][207][208][212][201][207][206][211]"
30010 PRINTTAB(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
30020 PRINTTAB(6)"1. [210]EVIEW ALL."
30030 PRINTTAB(6)"2. [211]EARCH AND REVIEW."
30040 PRINTTAB(6)"3. [210]ETURN TO MAIN MENU."
30050 PRINTTAB(6)"[195][200][207][207][211][197][160][194][217][160][208][210][197][211][211][201][206][199][160][193][160][206][213][205][194][197][210][146]";
30060 GETAN$:IFAN$=""THEN30060
30070 IFAN$<"1"ORAN$>"3"THENGOTO30060
30080 M=VAL(AN$)
30090 ONMGOTO5002,14500,200
50000 DATA"[204]AST NAME:","[207]THERS:","[211]TREET:","[195]ITY:","[211]TATE:","[208]OSTCODE:"
50010 DATA"[195]OUNTRY:","[208]HONE:","[195]OMMENTS:"